home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / UT.LSP < prev    next >
Text File  |  1992-09-13  |  401b  |  14 lines
  1. ;Easy underline text
  2. ;
  3. ;
  4. (Defun c:ut()
  5. (prompt "\nselect text to underline.")
  6. (setq ss(ssget)len(sslength ss)count 0)
  7. (while(not(equal len count))
  8. (setq ent(entget(ssname ss count)))
  9. (if(equal(cdr(assoc 0 ent))"TEXT")
  10. (progn(setq text(cdr(assoc 1 ent))
  11.             text(strcat "%%u" text "%%u")
  12.             ent(subst(cons 1 text)(assoc 1 ent)ent))
  13. (entmod ent)))
  14. (setq count(1+ count))))